﻿Public Class OS
    Public Enum OSType
        Is32Bit
        Is64Bit
    End Enum
    Public Shared Function GetOSType() As OSType
        Return IIf(IntPtr.Size = 4, OSType.Is32Bit, OSType.Is64Bit)
    End Function
End Class
